home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.51 / xpk-kp / xpkpackdemo.p < prev    next >
Text File  |  1995-08-27  |  948b  |  43 lines
  1. { simple demo 4 Janosh`z XPK-Interface (Kick / MaxonPASCAL)
  2.  
  3.   (c) & (P) by PackMAN, Falk Zühlsdorff, Lindenberg 66, D-98693 Ilmenau
  4.                Internet: ai036@rz.tu-ilmenau.de                         }
  5.  
  6. PROGRAM XPK_Pack_Demo;
  7.  
  8. USES EXEC;
  9.  
  10. {$incl 'xpk.lib'}
  11.  
  12. VAR OutName,InName,methode : STR;
  13.     Tags                       : array[1..4] of TagItem;
  14.     dummy                      : LONG;
  15. BEGIN
  16.  
  17.   XpkMasterBase:=OpenLibrary(XPKNAME,0);
  18.   IF XpkMasterBase=NIL THEN exit;
  19.  
  20.   Inname:='RAM:Test.unxpk';    {ungepackte Testdatei}
  21.   OutName:='RAM:Test.xpk';
  22.  
  23.   methode:='NUKE';
  24.  
  25.   Tags[1]:=TagItem(XPK_InName,long(InName));
  26.   Tags[2]:=TagItem(XPK_OutName,long(Outname));
  27.   Tags[3]:=TagItem(XPK_FindMethod,long(methode));
  28.   Tags[4].ti_Tag:=0;
  29.  
  30.   writeln('crunching...');
  31.  
  32.   dummy:=XpkPack(^Tags);
  33.   IF  dummy=0 THEN writeln('file crunched')
  34.               ELSE writeln('panic...');
  35.   IF XPKMasterBase<>NIL THEN CloseLibrary(XpkMasterBase);
  36. END.
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.